home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / irc / epic4-mos.lha / share / epic / script / 2.8script next >
Text File  |  2002-09-18  |  3KB  |  145 lines
  1. : {
  2.     This script is intended for use with 2.8 servers on all sites.
  3.     It handles some formatting options and join options for novice users
  4.  
  5.     This script references some aliases that are in 'basical'.  Both of
  6.     these scripts should be loaded from 'global', so that should not be
  7.     a problem.  This script will _not_ work correctly if 'basical' is not
  8.     loaded from 'global'.  This script is a dependency for other scripts.
  9.  
  10.     THIS SCRIPT MUST ALWAYS BE LOADED, OR OTHER SCRIPTS MIGHT NOT WORK!
  11.     THIS VERSION IS FOR EPIC CLIENTS ONLY (EPIC3.001 or up)
  12. }
  13.  
  14. # I dont know why the client cant do this...
  15. alias join
  16. {
  17.     switch ($*)
  18.     {
  19.         (*,*)
  20.         {
  21.             join $before(, $*)
  22.             join $after(, $*)
  23.         }
  24.         (#*) (&*) (0) (-*) (!*) (+*)
  25.             { //join $* }
  26.         () 
  27.             { //join -i }
  28.         (*) 
  29.             { //join #$* }
  30.     }
  31. }
  32.  
  33. alias leave
  34. {
  35.     switch ($0)
  36.     {
  37.         (*,*)
  38.         {
  39.             leave $before(, $0) $1-
  40.             leave $after(, $0) $1-
  41.         }
  42.         (#*) (&*) (0) (-*) (!*) (+*)
  43.             { //leave $* }
  44.         () (\*)
  45.             { //leave * $1- }
  46.         (*)
  47.             { //leave #$* }
  48.     }
  49. }
  50.  
  51. alias invite {
  52.     if ([$1]) 
  53.         {//invite $0 $1} 
  54.         {//invite $0 $C}
  55. }
  56.  
  57. alias off {
  58.     on $0 -$1-
  59. }
  60.  
  61. : {
  62.     I broke this, more or less on purpose on epic3.001. 
  63.     This makes it look like it did before.
  64. }
  65. on ^send_public * {if (iscurchan($0)) {echo > $1-} {echo $0> $1-}}
  66.  
  67. on ^ctcp ^"% % ERRMSG *no such function*"
  68. on ^dcc_raw ^"% % D %" 
  69.  
  70. # Trace information
  71. on ^200 * {
  72.     unless (tracepath) (tracepath = [$0])
  73.     xecho -b S:[$[15]0] V:[$[10]2] U:[$[20]4] 
  74.     @ tracepath #= [!$4]
  75. }
  76. on ^201 * xecho -b $1 Class[$2] ==> $3-
  77. on ^202 * xecho -b $1 Class[$2] ==> $3-
  78. on ^203 * xecho -b S:[$[15]0] UNKNOWN $3
  79. on ^204 * xecho -b S:[$[15]0] OPER [$[30]tr(/[/!/$3)
  80. on ^205 * xecho -b $1 Class[$2] ==> $3-
  81. on ^206 * {
  82.         if (tracepath) echo TRACE PATH: $tracepath
  83.         xecho -b S:[$[15]0] SERV [$[25]5] [$[-4]3] [$[-5]4]
  84.     (tracepath = [])
  85. }
  86. on ^207 * xecho -b $1 Class[$2] ==> $3-
  87. on ^208 * xecho -b $1 Class[$2] ==> $3-
  88. on ^209 * xecho -b $1 $2 Entries linked: $3
  89.  
  90. # Stats information
  91. ON ^211 * {
  92.         XECHO -b $1: Sent: ${[$4]/1024}mB Received: ${[$6]/1024}mB SendQ: $2 Connected for: $tdiff2($7) Idle: $8 [$9-]
  93. }
  94.  
  95. on ^211 * xecho -b $[40]1 $[10]2 $[10]3 $[10]4 $[10]5 $[12]6 $7-
  96. on ^212 * xecho -b $[10]1 $2
  97. on ^213 * xecho -b $1:$2:$3:$4:$5:$6
  98. on ^214 * xecho -b $1:$2:$3:$4:$5:$6
  99. on ^215 * xecho -b $1:$2:$3:$4:$5:$6
  100.  
  101. # K lines
  102. # efnet version
  103. : {
  104. on ^216 * {
  105.     (astuff = [$*])
  106.     pop astuff 
  107.     pop astuff 
  108.     (k.user = pop(astuff)) 
  109.     shift astuff
  110.     shift astuff
  111.     (k.host = shift(astuff))
  112.     xecho -b K $lformat(30 [$k.user@$k.host]) [$astuff]
  113. }
  114. }
  115.  
  116. # a2.9 version
  117. on ^216 * xecho -b $1:$2:$3:$4:$5-
  118. on ^217 * xecho -b $1:$2:$3:$4:$5:$6
  119. on ^218 * xecho -b $1:$2:$3:$4:$5:$6
  120. on ^241 * xecho -b $1:$2:$3:$4:$5:$6
  121.  
  122. # ef2.9 version
  123. #on ^218 * xecho -b $1:$2:$3:$4:$5:$6:$7:$8
  124. # Get da5id's script for handling 278 and 279 numerics.
  125.  
  126. : {
  127.    220 is used by .troy versions to return information on
  128.    host masks being enforced locally.
  129. }
  130. on ^220 * xecho -b $1 $[10]2 $3
  131.  
  132. # Service list:
  133. on ^231 * xecho -b Service $1 \($0\)
  134.  
  135. # Ban list:
  136. on ^367 * xecho -b $[$CHANNEL_NAME_WIDTH]1 $2-
  137.  
  138. # Compatibility with BX
  139. alias evalserver xeval -server $*
  140.  
  141. # Compatibility with EPIC4pre1.013 through EPIC4pre1.047
  142. on ^set "CONTROL_C_COLOR ON" set color on
  143. on ^set "CONTROL_C_COLOR OFF" set color off
  144.  
  145.